Eros - Digital Erotica & Games/Eros - Digital Erotica & Games.iso/mac/EROS vol.1/EROS vol.DXR/00830.ls

Text File | 1995-07-07 | 595 b | 31 lines

on ranit
  global md1, md2, md3, md4, md5, md6, rantime, mp, ran
  if the machineType = 256 then
    set rantime to the ticks
    set ran to 0
    repeat while ran = 0
      if md2 = 0 then
        set ran to 1
        exit repeat
      end if
      if md3 = 0 then
        set ran to 2
        exit repeat
      end if
      if md4 = 0 then
        set ran to 3
        exit repeat
      end if
      if md5 = 0 then
        set ran to 4
        exit repeat
      end if
      if md6 = 0 then
        set ran to 5
        exit repeat
      end if
      set ran to 6
    end repeat
  end if
end